home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / msdos / choose21.zip / MENU.BAT < prev    next >
DOS Batch File  |  1993-12-15  |  4KB  |  179 lines
  1. ECHO OFF
  2. CLS
  3. REM -- Test for access to all required files
  4. IF NOT EXIST MANUAL.TXT GOTO :FAULT
  5. IF NOT EXIST REGISTER.FRM GOTO :FAULT
  6. IF NOT EXIST CHOOSE.COM GOTO :FAULT
  7. IF NOT EXIST MAIN.MUX GOTO :FAULT
  8. IF NOT EXIST MM_INT.SDX GOTO :FAULT
  9. IF NOT EXIST MM_SEL.SDX GOTO :FAULT
  10. IF NOT EXIST MM_BRA.SDX GOTO :FAULT
  11. IF NOT EXIST MM_REG.SDX GOTO :FAULT
  12. IF NOT EXIST MM_INS.SDX GOTO :FAULT
  13. IF NOT EXIST MM_WST.SDX GOTO :FAULT
  14. IF NOT EXIST DSP_SPEC.SDX GOTO :FAULT
  15. IF NOT EXIST DSP_TEXT.SDX GOTO :FAULT
  16. IF NOT EXIST DSP_COLO.SDX GOTO :FAULT
  17. IF NOT EXIST DSKMSG.MUX GOTO :FAULT
  18. IF NOT EXIST DSKMSG.COM GOTO :FAULT
  19. IF NOT EXIST DSKMSG.SDX GOTO :FAULT
  20. IF     EXIST DSKMSG.TXT GOTO :MAIN_MENU
  21. :FAULT
  22. CLS
  23. PROMPT $G
  24. ECHO ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  25. ECHO +                                                            +
  26. ECHO +  The files included in your  CHOOSE  package are required  +
  27. ECHO +  to run MENU.BAT, but they were not found  in the current  +
  28. ECHO +  drive/directory and the batch cannot be run.              +
  29. ECHO +                                                            +
  30. ECHO +  Switch to the drive/directory with the CHOOSE files, and  +
  31. ECHO +  try again.                                                +
  32. ECHO +                                                            +
  33. ECHO ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  34. PROMPT $P$G
  35. GOTO :END
  36.  
  37. :MAIN_MENU
  38. CLS
  39. CHOOSE MAIN.MUX
  40. IF ERRORLEVEL=10 GOTO :MM_INT
  41. IF ERRORLEVEL=9 GOTO :MM_DSP
  42. IF ERRORLEVEL=8 GOTO :MM_SEL
  43. IF ERRORLEVEL=7 GOTO :MM_BRA
  44. IF ERRORLEVEL=6 GOTO :MM_REG
  45. IF ERRORLEVEL=5 GOTO :MM_MAN
  46. IF ERRORLEVEL=4 GOTO :MM_INS
  47. IF ERRORLEVEL=3 GOTO :MM_WST
  48. IF ERRORLEVEL=2 GOTO :EXTRA
  49. IF ERRORLEVEL=1 GOTO :END
  50. GOTO :END
  51.  
  52. :MM_INT -- "Introduction" SELECTION
  53. CLS
  54. TYPE MM_INT.SDX
  55. PAUSE
  56. GOTO :MAIN_MENU
  57.  
  58. :MM_DSP -- "Menu Display" SUB-MENU
  59. CLS
  60. CHOOSE {WCB}MENU DISPLAY^Menu {S}pecification^Special ({003}) & Highlighted Menu {T}ext^Menu {C}olors^{M}ain Menu
  61. IF ERRORLEVEL=4 GOTO :DSP_SPEC
  62. IF ERRORLEVEL=3 GOTO :DSP_TEXT
  63. IF ERRORLEVEL=2 GOTO :DSP_COLO
  64. IF ERRORLEVEL=1 GOTO :MAIN_MENU
  65. GOTO :MAIN_MENU
  66.  
  67. :DSP_SPEC -- "Menu Display"/"Menu Specification" SELECTION
  68. TYPE DSP_SPEC.SDX
  69. PAUSE
  70. GOTO :MM_DSP
  71.  
  72. :DSP_TEXT -- "Menu Display"/"Special & Highlighted Menu Text" SELECTION
  73. TYPE DSP_TEXT.SDX
  74. PAUSE
  75. GOTO :MM_DSP
  76.  
  77. :DSP_COLO -- "Menu Display"/"Menu Colors" SELECTION
  78. TYPE DSP_COLO.SDX
  79. PAUSE
  80. GOTO :MM_DSP
  81.  
  82. :MM_SEL -- "Menu Selection" SELECTION
  83. CLS
  84. TYPE MM_SEL.SDX
  85. PAUSE
  86. GOTO :MAIN_MENU
  87.  
  88. :MM_BRA -- "Batch Branching" SELECTION
  89. CLS
  90. TYPE MM_BRA.SDX
  91. PAUSE
  92. GOTO :MAIN_MENU
  93.  
  94. :MM_REG -- "User Registration" SELECTION
  95. CLS
  96. TYPE MM_REG.SDX
  97. PAUSE
  98. CLS
  99. CHOOSE PRINT REGISTRATION FORM?^{007} {Y}es^{007} {N}o
  100. IF ERRORLEVEL=2 GOTO :MM_REG_PNT
  101. GOTO :MAIN_MENU
  102. :MM_REG_PNT
  103. CLS
  104. ECHO PRINTING REGISTRATION FORM
  105. COPY REGISTER.FRM PRN
  106. GOTO :MAIN_MENU
  107.  
  108. :MM_MAN -- "Print Manual" SELECTION
  109. CLS
  110. ECHO PRINTING MANUAL TEXT
  111. COPY MANUAL.TXT PRN
  112. GOTO :MAIN_MENU
  113.  
  114. :MM_INS -- "Install to Drive-C" SELECTION
  115. CLS
  116. TYPE MM_INS.SDX
  117. CHOOSE {BWC}COPY CHOOSE.COM C:\^{007} {Y}es^{007} {N}o
  118. IF ERRORLEVEL=2 GOTO :MM_INS_CPY
  119. GOTO :MAIN_MENU
  120. :MM_INS_CPY
  121. CLS
  122. ECHO Copying CHOOSE to the root directory of Drive-C.
  123. ECHO ON
  124. COPY CHOOSE.COM C:\
  125. ECHO OFF
  126. PAUSE
  127. GOTO :MAIN_MENU
  128.  
  129. :MM_WST -- "Warm start" SELECTION
  130. CLS
  131. TYPE MM_WST.SDX
  132. CHOOSE {WWR}CONFIRM SYSTEM RE-BOOT^Yes^No
  133. CLS
  134. IF ERRORLEVEL=2 GOTO :RE-BOOT
  135. GOTO :MAIN_MENU
  136. :RE-BOOT
  137. CHOOSE RE-BOOT
  138.  
  139. :EXTRA -- "Extra" SUB-MENU
  140. CLS
  141. TYPE DSKMSG.SDX
  142. PAUSE
  143. :EXT_MENU
  144. CLS
  145. CHOOSE DSKMSG.MUX
  146. IF ERRORLEVEL=5 GOTO :EXT_ABOUT
  147. IF ERRORLEVEL=4 GOTO :EXT_PROMPT
  148. IF ERRORLEVEL=3 GOTO :EXT_CMDLINE
  149. IF ERRORLEVEL=2 GOTO :EXT_FILE
  150. IF ERRORLEVEL=1 GOTO :MAIN_MENU
  151. GOTO :MAIN_MENU
  152.  
  153. :EXT_ABOUT -- "Extra"/"About" SELECTION
  154. DSKMSG
  155. GOTO :EXT_MENU
  156.  
  157. :EXT_PROMPT -- "Extra"/"Text via Prompt" SELECTION
  158. ECHO Enter the text of a message that you
  159. ECHO wish to display using DESK MESSAGE.
  160. DSKMSG BKG=BLACK PROMPT
  161. IF ERRORLEVEL=9 GOTO :EXT_PAUSE
  162. GOTO :EXT_MENU
  163.  
  164. :EXT_CMDLINE -- "Extra"/"Text via Command Line" SELECTION
  165. DSKMSG TEXT=BACK AT NOON...
  166. IF ERRORLEVEL=9 GOTO :EXT_PAUSE
  167. GOTO :EXT_MENU
  168.  
  169. :EXT_FILE -- "Extra"/"Text via File" SELECTION
  170. DSKMSG FILE=DSKMSG.TXT
  171. IF ERRORLEVEL=1 GOTO :EXT_PAUSE
  172. GOTO :EXT_MENU
  173.  
  174. :EXT_PAUSE
  175. PAUSE
  176. GOTO :EXT_MENU
  177.  
  178. :END
  179.